home *** CD-ROM | disk | FTP | other *** search
/ HamCall (October 1991) / HamCall (Whitehall Publishing)(1991).bin / bcast / bcstcble / parallel.asc < prev    next >
Text File  |  1990-10-14  |  1KB  |  30 lines
  1. 10    PRINT  "Program to determine parallel resistance"
  2. 20    PRINT "Enter values in OHMS only with no commas."
  3. 30    INPUT "Value of original resistor";R
  4. 40    INPUT "Value of effective resistance desired ";RE
  5. 50    IF RE >= R THEN GOTO 180
  6. 60    RX=1/(1/RE-1/R)
  7. 70    DATA 1,1.2,1.5,1.8,2.2,2.7,3.3,3.9,4.7,5.6,6.8,8.2
  8. 71    DATA 10,12,15,18,22,27,33,39,47,56,68,82
  9. 72    DATA 100,120,150,180,220,270,330,390,470,560,680,820
  10. 73    DATA 1000,1200,1500,1800,2200,2700,3300,3900,4700,5600,6800,8200
  11. 74    DATA 10000,12000,15000,18000,22000,27000,33000,47000,56000,68000,82000
  12. 75    DATA 680000,820000,1000000,1200000,1500000,1800000,2200000,2700000
  13. 76    DATA 3300000,4700000,5600000,6800000,8200000
  14. 80    FOR X=1 TO 84
  15. 90    READ F
  16. 100   IF RX*.9 <= F THEN Y=F:GOTO 120
  17. 110   NEXT X
  18. 120   PRINT"Use "Y" ohm resistor in parallel with original "R" ohm"
  19. 125   PRINT"resistor for an effective resistance of "RE" ohms."
  20. 130   Q=1/(1/R+1/Y)
  21. 140   E=(Q/RE*100)-100
  22. 150   E=INT(E*10+.5)/10
  23. 160   PRINT"Error is "E"%."
  24. 170   END
  25. 180   PRINT"Effective value of 2 parallel resistors is often less than"
  26. 185   PRINT"then value of either."
  27. 190   PRINT"Chosen value for effective resistance must be less than the"
  28. 195   PRINT"value of the original resistor."
  29. 200   PRINT:GOTO 30
  30.